home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wtek0693.zip / OOPALLEY.ZIP / IDENTDIC.V < prev    next >
Text File  |  1990-02-15  |  537b  |  32 lines
  1.  
  2. Test class IdentDict
  3. d = IdentDict[
  4. AssocInt((1 @ 1)=1)
  5. Assoc((1 @ 2)=(2 @ 2))
  6. AssocInt((1 @ 3)=3)]
  7.  
  8. d.atKey(a): 1
  9. d.includesKey(Point(1,1)): 0
  10. d = IdentDict[
  11. AssocInt((1 @ 1)=0)
  12. Assoc((1 @ 2)=(2 @ 2))
  13. AssocInt((1 @ 3)=3)]
  14.  
  15. d.includesAssoc(asc): 1
  16. d.includesKey((1 @ 3)): 1
  17. d.keyAtValue(Integer(0)) = (1 @ 1)
  18. d.includesAssoc(asc): 0
  19. d.includesKey((1 @ 3)): 0
  20. d.asBag: Bag[
  21. AssocInt(0=1)
  22. AssocInt((2 @ 2)=1)]
  23.  
  24. d.addKeysTo(keys): OrderedCltn[
  25. (1 @ 1)
  26. (1 @ 2)]
  27.  
  28. d.addValuesTo(vals): OrderedCltn[
  29. 0
  30. (2 @ 2)]
  31.  
  32.